home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #18 (Mar 87) / Forth SCSI / Optimizer test.edit next >
Text File  |  1987-02-10  |  775b  |  44 lines
  1. CODE test
  2.     move.l (a6)+,d0
  3.     addq.l #2,d0
  4.     move.l d0,-(a6)
  5.     rts
  6. END-CODE MACH
  7.  
  8. : test2 test test ;
  9.  
  10. CODE test1
  11.     move.l (a6)+,d1
  12.     addq.l #2,d1
  13.     move.l d1,-(a6)
  14.     rts
  15. END-CODE MACH
  16.  
  17. : test3 test1 test1 ;
  18.  
  19. - Disassembler output -
  20.  
  21. test
  22. 01D6C4: MOVE.L (A6)+,D0       
  23. 01D6C6: ADDQ.L #$2,D0       
  24. 01D6C8: MOVE.L D0,-(A6)       
  25. 01D6CA: RTS       
  26. test2
  27. 01D6CC: MOVE.L (A6)+,D0       
  28. 01D6CE: ADDQ.L #$2,D0       
  29. 01D6D0: ADDQ.L #$2,D0       
  30. 01D6D2: MOVE.L D0,-(A6)       
  31. 01D6D4: RTS       
  32. test1
  33. 01D6D6: MOVE.L (A6)+,D1       
  34. 01D6D8: ADDQ.L #$2,D1       
  35. 01D6DA: MOVE.L D1,-(A6)       
  36. 01D6DC: RTS       
  37. test3
  38. 01D6DE: MOVE.L (A6)+,D1       
  39. 01D6E0: ADDQ.L #$2,D1       
  40. 01D6E2: MOVE.L D1,D1       
  41. 01D6E4: ADDQ.L #$2,D1       
  42. 01D6E6: MOVE.L D1,-(A6)       
  43. 01D6E8: RTS       
  44.